home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-1.dxr / 00001_Movie script.ls next >
Encoding:
Text File  |  1997-04-01  |  2.0 KB  |  69 lines
  1. on startMovie
  2.   global nCursor1, nMask1, nCursor2, nMask2, nCursor3, nMask3, bVideoOn, NumCd
  3.   set NumCd to 2
  4.   set bVideoOn to 0
  5.   set nCursor1 to the number of member "Cursor1"
  6.   set nMask1 to the number of member "Mask1"
  7.   set nCursor2 to the number of member "Cursor2"
  8.   set nMask2 to the number of member "Mask2"
  9.   set nCursor3 to the number of member "Cursor3"
  10.   set nMask3 to the number of member "Mask3"
  11.   sound stop 1
  12.   sound stop 2
  13. end
  14.  
  15. on punt
  16.   repeat with xx = 91 to 102
  17.     set the regPoint of member xx of castLib "elementos graficos" to point(293, -138)
  18.   end repeat
  19. end
  20.  
  21. on dipunt
  22.   repeat with xx = 91 to 102
  23.     put the regPoint of member xx of castLib "elementos graficos"
  24.   end repeat
  25. end
  26.  
  27. on coordenadas
  28.   put "if the mouseV >= " & the locV of sprite 4 & " and the mouseH >= " & the locH of sprite 4 & " and the mouseV <= " & the locV of sprite 4 + the height of sprite 4 & " and the mouseH <= " & the locH of sprite 4 + the width of sprite 4 & " then"
  29. end
  30.  
  31. on snapshot v1, h1, v2, h2
  32.   global sPathIni, sMensaje01
  33.   if azReadDir(sPathIni & "snapshot\*.*") = [] then
  34.     if not azCreatDir(sPathIni & "snapshot") then
  35.       alert("Unable to create directory")
  36.     end if
  37.   end if
  38.   openXLib(sPathIni & "Capture.dll")
  39.   openXLib(sPathIni & "Fileio.dll")
  40.   set oGrab to Capture(mnew, v1 + the stageTop, h1 + the stageLeft, v2 + the stageTop, h2 + the stageLeft)
  41.   set bLleno to 0
  42.   repeat with xx = 0 to 100
  43.     if xx = 100 then
  44.       set bLleno to 1
  45.     end if
  46.     set sOrden to string(xx)
  47.     if xx < 10 then
  48.       set sOrden to "0" & sOrden
  49.     end if
  50.     set sFitxer to sPathIni & "snapshot\vtm_fp" & sOrden & ".BMP"
  51.     set oFitxer to fileio(mnew, "read", sFitxer)
  52.     if objectp(oFitxer) then
  53.       oFitxer(mdispose)
  54.       next repeat
  55.     end if
  56.     if oFitxer = -43 then
  57.       set xx to 101
  58.     end if
  59.   end repeat
  60.   closeXLib(sPathIni & "Fileio.dll")
  61.   if bLleno then
  62.     alert(sMensaje01)
  63.   else
  64.     oGrab(mSave, sFitxer)
  65.   end if
  66.   oGrab(mdispose)
  67.   closeXLib(sPathIni & "Capture.dll")
  68. end
  69.